home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 January: Mac OS SDK / Dev.CD Jan 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / StringCompare.a < prev    next >
Encoding:
Text File  |  1997-08-12  |  10.8 KB  |  399 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        StringCompare.a
  3. ;
  4. ;    Contains:    Public interfaces for String Comparison and related operations
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Release:    Universal Interfaces 3.0.1
  8. ;
  9. ;    Copyright:    © 1985-1997 by Apple Computer, Inc., all rights reserved.
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__STRINGCOMPARE__') = 'UNDEFINED' THEN
  19. __STRINGCOMPARE__ SET 1
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24.     IF &TYPE('__TEXTCOMMON__') = 'UNDEFINED' THEN
  25.     include 'TextCommon.a'
  26.     ENDIF
  27.     IF &TYPE('__SCRIPT__') = 'UNDEFINED' THEN
  28.     include 'Script.a'
  29.     ENDIF
  30.  
  31. ; 
  32. ;
  33. ;    Here are the current System 7 routine names and the translations to the older forms.
  34. ;    Please use the newer forms in all new code and migrate the older names out of existing
  35. ;    code as maintenance permits.
  36. ;    
  37. ;    NEW NAME                    OLD NAME                    OBSOLETE FORM (no handle)
  38. ;    
  39. ;    CompareString (Str255)        IUCompPString (hp only)        IUCompString (hp only)
  40. ;    CompareText (ptr/len)        IUMagPString                IUMagString
  41. ;    IdenticalString (Str255)    IUEqualPString (hp only)    IUEqualString  (hp only)
  42. ;    IdenticalText (ptr/len)        IUMagIDPString                IUMagIDString
  43. ;    LanguageOrder                IULangOrder
  44. ;    ScriptOrder                    IUScriptOrder
  45. ;    StringOrder (Str255)        IUStringOrder (hp only)
  46. ;    TextOrder (ptr/len)            IUTextOrder
  47. ;
  48. ;    RelString
  49. ;    CmpString (a only)                    
  50. ;    EqualString (hp only)
  51. ;    
  52. ;    ReplaceText
  53. ;
  54. ;
  55.  
  56.  
  57.  
  58.                                                             ; Special language code values for Language Order
  59. systemCurLang                    EQU        -2                    ; current (itlbLang) lang for system script
  60. systemDefLang                    EQU        -3                    ; default (table) lang for system script
  61. currentCurLang                    EQU        -4                    ; current (itlbLang) lang for current script
  62. currentDefLang                    EQU        -5                    ; default lang for current script
  63. scriptCurLang                    EQU        -6                    ; current (itlbLang) lang for specified script
  64. scriptDefLang                    EQU        -7                    ; default language for a specified script
  65. ;  obsolete names
  66.  
  67. iuSystemCurLang                    EQU        -2
  68. iuSystemDefLang                    EQU        -3
  69. iuCurrentCurLang                EQU        -4
  70. iuCurrentDefLang                EQU        -5
  71. iuScriptCurLang                    EQU        -6
  72. iuScriptDefLang                    EQU        -7
  73.  
  74.  
  75. ;   The following functions are old names, but are required for System 7 PowerPC builds
  76. ;   because InterfaceLib exports these names, instead of the new ones.
  77.  
  78.  
  79.  
  80. ;
  81. ; pascal short IUMagPString(const void *aPtr, const void *bPtr, short aLen, short bLen, Handle itl2Handle)
  82. ;
  83.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  84.         Macro
  85.         _IUMagPString
  86.             move.w              #$001A,-(sp)
  87.             dc.w                $A9ED
  88.         EndM
  89.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  90.         IMPORT_CFM_FUNCTION IUMagPString
  91.     ENDIF
  92.  
  93. ;
  94. ; pascal short IUMagIDPString(const void *aPtr, const void *bPtr, short aLen, short bLen, Handle itl2Handle)
  95. ;
  96.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  97.         Macro
  98.         _IUMagIDPString
  99.             move.w              #$001C,-(sp)
  100.             dc.w                $A9ED
  101.         EndM
  102.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  103.         IMPORT_CFM_FUNCTION IUMagIDPString
  104.     ENDIF
  105.  
  106. ;
  107. ; pascal short IUTextOrder(const void *aPtr, const void *bPtr, short aLen, short bLen, ScriptCode aScript, ScriptCode bScript, LangCode aLang, LangCode bLang)
  108. ;
  109.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  110.         Macro
  111.         _IUTextOrder
  112.             move.w              #$0022,-(sp)
  113.             dc.w                $A9ED
  114.         EndM
  115.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  116.         IMPORT_CFM_FUNCTION IUTextOrder
  117.     ENDIF
  118.  
  119. ;
  120. ; pascal short IULangOrder(LangCode language1, LangCode language2)
  121. ;
  122.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  123.         Macro
  124.         _IULangOrder
  125.             move.w              #$0020,-(sp)
  126.             dc.w                $A9ED
  127.         EndM
  128.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  129.         IMPORT_CFM_FUNCTION IULangOrder
  130.     ENDIF
  131.  
  132. ;
  133. ; pascal short IUScriptOrder(ScriptCode script1, ScriptCode script2)
  134. ;
  135.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  136.         Macro
  137.         _IUScriptOrder
  138.             move.w              #$001E,-(sp)
  139.             dc.w                $A9ED
  140.         EndM
  141.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  142.         IMPORT_CFM_FUNCTION IUScriptOrder
  143.     ENDIF
  144.  
  145. ;  The following are new names which are not exported by System 7 InterfaceLib for PowerPC.
  146. ;
  147. ; pascal short CompareText(const void *aPtr, const void *bPtr, short aLen, short bLen, Handle itl2Handle)
  148. ;
  149.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  150.         Macro
  151.         _CompareText
  152.             move.w              #$001A,-(sp)
  153.             dc.w                $A9ED
  154.         EndM
  155.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  156.         IMPORT_CFM_FUNCTION CompareText
  157.     ENDIF
  158.  
  159. ;
  160. ; pascal short IdenticalText(const void *aPtr, const void *bPtr, short aLen, short bLen, Handle itl2Handle)
  161. ;
  162.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  163.         Macro
  164.         _IdenticalText
  165.             move.w              #$001C,-(sp)
  166.             dc.w                $A9ED
  167.         EndM
  168.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  169.         IMPORT_CFM_FUNCTION IdenticalText
  170.     ENDIF
  171.  
  172. ;
  173. ; pascal short TextOrder(const void *aPtr, const void *bPtr, short aLen, short bLen, ScriptCode aScript, ScriptCode bScript, LangCode aLang, LangCode bLang)
  174. ;
  175.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  176.         Macro
  177.         _TextOrder
  178.             move.w              #$0022,-(sp)
  179.             dc.w                $A9ED
  180.         EndM
  181.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  182.         IMPORT_CFM_FUNCTION TextOrder
  183.     ENDIF
  184.  
  185. ;
  186. ; pascal short LanguageOrder(LangCode language1, LangCode language2)
  187. ;
  188.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  189.         Macro
  190.         _LanguageOrder
  191.             move.w              #$0020,-(sp)
  192.             dc.w                $A9ED
  193.         EndM
  194.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  195.         IMPORT_CFM_FUNCTION LanguageOrder
  196.     ENDIF
  197.  
  198.  
  199. ;   The following new function name IS exported by InterfaceLib and works on both 68k and
  200. ;   System 7 PowerPC.
  201.  
  202.  
  203. ;
  204. ; pascal short ScriptOrder(ScriptCode script1, ScriptCode script2)
  205. ;
  206.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  207.         Macro
  208.         _ScriptOrder
  209.             move.w              #$001E,-(sp)
  210.             dc.w                $A9ED
  211.         EndM
  212.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  213.         IMPORT_CFM_FUNCTION ScriptOrder
  214.     ENDIF
  215.  
  216.  
  217. ;   The following new function name IS exported by InterfaceLib and works on both 68k and
  218. ;   System 7 PowerPC.
  219.  
  220.  
  221. ;
  222. ; pascal short ReplaceText(Handle baseText, Handle substitutionText, Str15 key)
  223. ;
  224.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  225.         Macro
  226.         _ReplaceText
  227.             move.l              #$820CFFDC,-(sp)
  228.             dc.w                $A8B5
  229.         EndM
  230.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  231.         IMPORT_CFM_FUNCTION ReplaceText
  232.     ENDIF
  233.  
  234. ;
  235. ; pascal short IUMagString(const void *aPtr, const void *bPtr, short aLen, short bLen)
  236. ;
  237.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  238.         Macro
  239.         _IUMagString
  240.             move.w              #$000A,-(sp)
  241.             dc.w                $A9ED
  242.         EndM
  243.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  244.         IMPORT_CFM_FUNCTION IUMagString
  245.     ENDIF
  246.  
  247. ;
  248. ; pascal short IUMagIDString(const void *aPtr, const void *bPtr, short aLen, short bLen)
  249. ;
  250.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  251.         Macro
  252.         _IUMagIDString
  253.             move.w              #$000C,-(sp)
  254.             dc.w                $A9ED
  255.         EndM
  256.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  257.         IMPORT_CFM_FUNCTION IUMagIDString
  258.     ENDIF
  259.  
  260.     IF TARGET_CPU_68K THEN
  261. ;
  262. ; extern SInt32 RelString(BytePtr textPtrA, BytePtr textPtrB, UInt32 lengthAB)
  263. ;
  264.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  265.         ; parameters:
  266.         ;    textPtrA        => A0
  267.         ;    textPtrB        => A1
  268.         ;    lengthAB        => D0
  269.         ; returns:
  270.         ;    SInt32          <= D0
  271.         _RelString:    OPWORD    $A050
  272.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  273.         IMPORT_CFM_FUNCTION RelString
  274.     ENDIF
  275.  
  276. ;
  277. ; extern SInt32 RelStringMarks(BytePtr textPtrA, BytePtr textPtrB, UInt32 lengthAB)
  278. ;
  279.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  280.         ; parameters:
  281.         ;    textPtrA        => A0
  282.         ;    textPtrB        => A1
  283.         ;    lengthAB        => D0
  284.         ; returns:
  285.         ;    SInt32          <= D0
  286.         _RelStringMarks:    OPWORD    $A250
  287.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  288.         IMPORT_CFM_FUNCTION RelStringMarks
  289.     ENDIF
  290.  
  291. ;
  292. ; extern SInt32 RelStringCase(BytePtr textPtrA, BytePtr textPtrB, UInt32 lengthAB)
  293. ;
  294.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  295.         ; parameters:
  296.         ;    textPtrA        => A0
  297.         ;    textPtrB        => A1
  298.         ;    lengthAB        => D0
  299.         ; returns:
  300.         ;    SInt32          <= D0
  301.         _RelStringCase:    OPWORD    $A450
  302.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  303.         IMPORT_CFM_FUNCTION RelStringCase
  304.     ENDIF
  305.  
  306. ;
  307. ; extern SInt32 RelStringMarksCase(BytePtr textPtrA, BytePtr textPtrB, UInt32 lengthAB)
  308. ;
  309.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  310.         ; parameters:
  311.         ;    textPtrA        => A0
  312.         ;    textPtrB        => A1
  313.         ;    lengthAB        => D0
  314.         ; returns:
  315.         ;    SInt32          <= D0
  316.         _RelStringMarksCase:    OPWORD    $A650
  317.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  318.         IMPORT_CFM_FUNCTION RelStringMarksCase
  319.     ENDIF
  320.  
  321. ;
  322. ; extern UInt32 CmpString(BytePtr textPtrA, BytePtr textPtrB, UInt32 lengthAB)
  323. ;
  324.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  325.         ; parameters:
  326.         ;    textPtrA        => A0
  327.         ;    textPtrB        => A1
  328.         ;    lengthAB        => D0
  329.         ; returns:
  330.         ;    UInt32          <= D0
  331.         _CmpString:    OPWORD    $A03C
  332.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  333.         IMPORT_CFM_FUNCTION CmpString
  334.     ENDIF
  335.  
  336. ;
  337. ; extern UInt32 CmpStringMarks(BytePtr textPtrA, BytePtr textPtrB, UInt32 lengthAB)
  338. ;
  339.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  340.         ; parameters:
  341.         ;    textPtrA        => A0
  342.         ;    textPtrB        => A1
  343.         ;    lengthAB        => D0
  344.         ; returns:
  345.         ;    UInt32          <= D0
  346.         _CmpStringMarks:    OPWORD    $A23C
  347.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  348.         IMPORT_CFM_FUNCTION CmpStringMarks
  349.     ENDIF
  350.  
  351. ;
  352. ; extern UInt32 CmpStringCase(BytePtr textPtrA, BytePtr textPtrB, UInt32 lengthAB)
  353. ;
  354.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  355.         ; parameters:
  356.         ;    textPtrA        => A0
  357.         ;    textPtrB        => A1
  358.         ;    lengthAB        => D0
  359.         ; returns:
  360.         ;    UInt32          <= D0
  361.         _CmpStringCase:    OPWORD    $A43C
  362.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  363.         IMPORT_CFM_FUNCTION CmpStringCase
  364.     ENDIF
  365.  
  366. ;
  367. ; extern UInt32 CmpStringMarksCase(BytePtr textPtrA, BytePtr textPtrB, UInt32 lengthAB)
  368. ;
  369.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  370.         ; parameters:
  371.         ;    textPtrA        => A0
  372.         ;    textPtrB        => A1
  373.         ;    lengthAB        => D0
  374.         ; returns:
  375.         ;    UInt32          <= D0
  376.         _CmpStringMarksCase:    OPWORD    $A63C
  377.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  378.         IMPORT_CFM_FUNCTION CmpStringMarksCase
  379.     ENDIF
  380.  
  381.     ELSE
  382. ;
  383. ; pascal short RelString(ConstStr255Param str1, ConstStr255Param str2, Boolean caseSensitive, Boolean diacSensitive)
  384. ;
  385.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  386.         IMPORT_CFM_FUNCTION RelString
  387.     ENDIF
  388.  
  389. ;
  390. ; pascal Boolean EqualString(ConstStr255Param str1, ConstStr255Param str2, Boolean caseSensitive, Boolean diacSensitive)
  391. ;
  392.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  393.         IMPORT_CFM_FUNCTION EqualString
  394.     ENDIF
  395.  
  396.     ENDIF    ; TARGET_CPU_68K
  397.     ENDIF ; __STRINGCOMPARE__ 
  398.  
  399.